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1 . 


ABSTRACT 


This program tests the resistance of cores to being 
switched from the 1— to the 0-state during or after a rise 
in temperature. A core in the 1-state is heated by 
repeatedly addressing the core, using a JMP . instruction. 

In two seconds, the temperature of the core can rise as 
much as 15 C. (Cores in the 0— state are not affected). 

The repetitive read-write switching may cause an un- 
stable core to revert to the 0-state. After the core 
has been heated, a half-select current passing through 
it may also cause the core to change state. 

The program tests selected cores at (or as near as possible to) 
thecorners of each array, in the middle of each edge,^ and at 
the center of the array. Provisions are made for error 
printouts and halts, scoping loops, and test repetition. 
Although intended primarily for extended memory, the test 
can be run on any PDP-15. 

2 . REQUIREMENTS 

2 . 1 Equipment 

Standard PDP-15 with any size core memory. 

2 . 2 Storage 

The program occupies locations 00000-000036, and 01000 - 
01520. All other memory registers are cleared. 

2 .3 Preliminary Programs 
None 

3 . LOADING PROCEDURE 

The program is in absolute binary format. 

a. Place the program tape in the reader. 

b. Set the ADDRESS Switches to 17700. 

c. Set the BANK MODE Switch on a 1. 

d. Press I/O RESET, then READIN. 

4 . STARTING PROCEDURE 



Control Sv/itch Settings 


AC SWITCH 

STATE 

MODE OR OPERATION 




0 

0 

Normal 

1 

Repeat current cycle 

\ 

0 

Halt after error print-nut 


1 

Don't halt after print-out 

2 

0 

Print error data 

I 

Do not print error data 

3 , 4,1 


Start testing in the 4K 
field specified by the 
octal value (0 to 7). 

6,7,8 


Octal number (0 to 7) of 
additional 4K extended 
memory fields. 


0 

. 

Halt at end of program 


1 

Repeat entire program 


0 

Go on to next field 

1 / 

1 

Repeat test on current field 


Operator Action 

a. When the program has been loaded, remove the tape 
from the reader. 

u. tet the ADDRESS switches to 0200. 

c. i-'ress I/O RESET, then START. 

d. A halt will occur with the PC=01006 

e. Set the control switches as desired, the press 
CONTINUE. 

To re-start the program, follow steps a through d above. 


















OPERATING PROCEDURE 


5 . 


5 • 1 Switch Settings 

See Section 4.1. 

5 .2 Operator Action 

When the program is started, SW 0-2, 16, and 17, should 
be set to 0. If no errors occur, the program requires 
no intervention. To handle errors, several procedures 
are available. 

a. Option When an error first occurs, the data are 
printed and the program halts. To obtain information 
about possible failures in other cores, set SW 1 to 1, 
and press CONTINUE. At each error, the information is 
printed, and the test proceeds without stopping. 

b. Option 2“ To examine a signal trace at any given error 
site, set SW 0 and SW 2 to 1, then press CONTINUE. The cy- 
cle just executed will be repeated, whether or not the 
error occurs (making intermittent errors easily dis- 
cernible) . To observe the temperature-dependent behavior 
of the core, a 2 second cooling-off period is provided 
between repetitions of the cycle, during which the core 

is switched once every 18 microseconds. 

The operator can examine a particular memory bank, or all 
banks in succession. 

c. Normal Final Halt-C (PC) =01006. This is the same as the 
halt after starting, so that the user can proceed from a final 
halt as though starting the test. 

6 . ERRORS 

6 . 1 Error Messages 

At the first occurrence of an error, the following heading is 
printed ; 


HOT MEMORY TEST 
CONTENTS LOCATION 

Under "CONTENTS", the correct and actual contents of the 
tested register are printed, in that order. The absolute ad- 
dress of the register is printed under "LOCATION". 

Normally, such an error printout occurs whenever a core is 
switched by a half-select current passing through it while 
the core is lx hot. Sometimes, however, a core will 



switch to the o-state while it is being heated; if this 
happens, the following message is printed: 

CORE SWITCHED WHILE HEATING 


6.2 


Error Stops and Recovery 

Tag C (PC) C (AC) Data Printed. Discussion 


SPIN +1 00031 


EHl 01144 


l/O None 

status A device other than the KSR 33 

teleprinter caused a program 
interrupt . 

Recovery: Disable the offending 

device (s) then press CONTINUE. 

n/a CONTENTS and LOCATION of register 

(1) A heated core was switched 
to the 0-state by a half-select 
current . 


(2) A core switched to the 0- 
state while being heated (Special 
message is printed) . 

Recovery: Set the control 

switches as desired, then press 
CONTINUE . 


EH2 01055 000000 None 

The contents of SW3-5 are greater 
contents of SW6-8. The following 
message is printed: 

STARTING BLOCK TOO HIGH. RESET 
SW3-5 . 


Recovery; Set SW 3-5 to be less 
than or equal to the setting of 
SW 6-8. Press CONTINUE. 


6 . 3 Examples 

Here is a typical error printout (the heading is printed only at 
the first occurrence of the error) ; 

HOT MEMORY TEST 
CONTENTS LOCATION 
605077 

600077 24077 



The register being tested is 24077 (that is, 4077 in memory bank 2). The 
correct contents should be 604077, which is the JMP . instruction. The 
actual contents are 600077, showing that bit 6 was switched to 0 incorrectly. 

If the same error had occurred while core was being heated, the printout 
would have appeared as follows: 

CORE SWITCHED WHILE HEATING 
604077 

600077 24077 

RESTRICTIONS 

None 

MISCELLANEOUS 

Execution Time: 62 seconds for each 4K memory bank. 

DESCRIPTION 


When a core in the 1-state is rapidly and repeatedly switched, it gets hot. 
If it gets too hot, a marginally-re;liable core might spontaneously switch to 
the O-state, or else it might be switched to 0 when a half-select current 
is passed through it (when another register on the same x- or y- line is 
addressed). This program is designed to catch such errors, examining 
critically-placed cores in as many bit arrays as is possible with the logic. 

The rapid switching is effected by executing a JMP . instruction at the 
address under examination. All cores in the 1-state will get hot (0-state 
cores are not affected). By choosing the proper addresses, cores in every 
memory plane, and In almost every bit array (there are four arrays in a 
plane) , can be tested under the most extreme conditions; in the center of 
the array, at the corners , and along the edges, where the cores are closest 
to the sense amps . 

Table 1 lists the addresses used in the test. Because the operation code 
of JMP is 600000, bits 2 and 3 cannot be tested (they will always be 0). 
Likewise, bit 4 is not tested, because indirect addressing is not used. 

Bit 5 can be tested only in odd-numbered memory banks. 

At the start of the test, the switches are examined to see how much 
memory is available, and in which bank the test is to start. Table 
pointers and indices are set up, and the entire test area is cleared 
to 000000. 



A JMP . instruction is constructed and placed in the register being 
tested. The Teletype is selected (TLS + 10), the interrupt is enabled, 
and the program jumps to the tested register. The JMP . is repeatedly 
executed until a program interrupt occurs when the teletype flog is 
set; this occurs every 100 milliseconds. The flag is tallied, the 
Teletype reselected, and the JMP . is resumed. After 20 flags 
(2 seconds), the tested register is half-selected, and the' contents 
of the tested register are compared against a standard. 

If a bit changes while the core is being heated, the JMP . becomes 
either a JMP to another register, or a different instruction. In 
either case, the program counter is changed, and in most cases 
an empty register is addressed, causing the program to execute 
a CAL instruction which traps to location 00020. The program 
sequence starting in register 00021 causes the special message 
to be printed, followed by the error data. 

When an error occurs, the switches are examined to see which 
options have been chosen. If SW 0 is set to 1, the program does 
not halt. Instead, a small time-wasting loop is executed to allow 
the heated cores to cool off for 2 seconds (the cores are switched 
every 18 microseconds, just to see if a core might change state 
while cooling off); the same register is then tested again. 

The 30 addresses listed in Table 1 are tested for each memory bank 
provided. If SW J7 is set to 1, the test is repeated in the current 
bank. If SW 16 is set to 1, the entire test is repeated; otherwise, 
the program stops when all banks have been tested. The normal 
final halt is at PC=01006. 


Table 1 


Addresses of tested registers, for 


0037 

0040 

0101 

0102 

4001 

4002 

7701 

7702 

3700 

3740 

4000 

4037 

7700 

7737 

0100 

0240 

0140 

0277 

0177 


7777 



one 4K memory bank. 

0077 

0104 

4004 

7704 

3777 

4077 

7740 

0400 

0440 

0477 



Table 2 


Addresses used for half-selecting tested registers 

0000 

4040 

7777 

7700 

0137 
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HOTMEM 


hot memory TEST.MK II 


.title hot memory TeST.MK II 

/ 

/copyright 1970, digital EQUIPMENT CHRP, 

/Maynard, mass. 

/ 

/test of core stability during and AETFR SELP-HEaTING 
/ 





. ARS 



00001 



. LOC 

1 


00001 

600001 


JMP 

. 


0000? 

777777 


LAW 

-1 


00003 

777777 


LAW 

-1 


00004 

777777 


L AW 

-1 


0 0 0 05 

777777 

/ 

LAW 

-1 


0 0 0 0/, 

001100 

/ 

lORET 

TEST 


/’TEST' OR 'SCORE' 

0 0 010 


/ 

. LOC 

10 

/INDICES AND POINTERS 

00010 

000000 

AXT 

0 


/TEXT POINTER 

0001; 

000000 

AXL 

0 


/CORE LOCATION TABLE 


000000 

AX3 

0 


/MISC. INDEX 

00021 


/ 

. LOC 

21 

/cal CATCHER 

0 0 0 21 

201534 


LAC 

(EMl-1 

/SELE-HEaTING ERROR 

000 22 

041522 


DAC 

#ERAP 

/ADDRESS OE TEXT 

00023 

601110 


JMP 

TEST? 




/teletype 

ROUTINE 


00024 

4415^3 

f 

TTYr 

I S2 

#ELAC 

/count flags. DONE? 

00025 

600031 


JMP 

EXINT 

/NO . 

0 0 ? 6 

620006 


JMP« 

ioket 

/yes. 

0 0 2 7 

7003 I 4 

/ 

SP I N 

I ORS 


/SPURIOUS interrupt 

00030 

740040 


HLT 


/ I/O status in AC 

0 0 3 1 

20 I 53 I 

/ 

EX I NT 

LAC 

«SAC 

/RESTORE AC 

0 0 0 32 

703302 


cae 



0 0 0 3 3 

700416 


T LS + 1 0 



0 0 0 34 

700042 


I ON 



0 0 0 3 5 

703344 


DRK 



0 0 0 36 

620000 


JMP« 

0 


0 0 '2 00 



.LOC 

200 


0 0 2 0 0 

201535 


Lac 

(DAC #RAC 

/SETUP PI handler 

0 0 2 01 

0400'?! 


n AC 

1 


0020? 

201536 


LAC 

( TSE 


0 0 2 0 3 

040002 


n AC 

P 


0 0 204 

201537 


LAC 

( J M P SPIN 


.’0 205 

040003 


OAC 

3 


0 0 2 0 5 

201540 


L AC 

(J^’P TTYR 


0 0 207 

040004 


0 A (' 

4 


0 0 2 10 

601000 


JMu 

PG 1 N 



. E JE^T 
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HqTmEm 


Hot memory test.mk i i 


/program starts here 
/ 


My/ 0 M 


/ 

PG I N 

. LOC 

y 000 

MlMPIM 

7 0 5 5 T 4 

1 Sa + 10 


01001 

703302 


oaf 


01002 

201541 


lac 

( ^jE ad- 1 

010 0 3 

041525 


DAC 

A Hg I G 

01004 

141522 


nSM 

aerap 

01005 

750044 

NEH 

HLT'.LaS 



/ 


/initialisation 


010 0 6 

750004 

/ 

I N I T LAS 


010 0 7 

742010 

RTL ; 

ral 

01010 

01011 

740010 

501542 

And 

( 70000 

01012 

041521 

DAC 

/ 

/CLEAR TEST 
/ 

LAC 

#BANKs 

0 I 0 I 3 

201543 

areas 

(37 

01014 

040012 

DAC 

AX3 

01015 

201544 

LAC 

(177 

01016 

1 60012 


AX3 

01017 

540012 

Sad 

aX3 

01020 

751001 

skp ! Clc 


01021 

601016 

JMP 

. -3 

0102? 

201545 

LAC 

(21 1 

01023 

040012 

DAC 

AX3 

01024 

201546 

LAC 

( 777 

0 1 0 2 5 

160012 


AX3 

010 2 6 

540012 

sad 

A X 7 

010 2 7 

751001 

SKP : CLC 


010 3 0 

601025 

JMP 

. -3 

01031 

341516 

Tad 

PLIM 

01032 

040012 

DAC 

A X3 

01033 

201521 

LAC 

aBAnKS 

01034 

341547 

Tad 

(7777 

01035 

707702 

EEM 


01036 

160012 

n 2M<» 

AX3 

01037 

540012 

Sad 

A X3 

0 1 4 0 

601042 

JMP 

GO 

010 41 

601036 

JMP 

. -3 


/ 


. E JE '^T 


/disable API IF PRESENT 


/address of heading text 

/gEy header gIGNAL 
/CLEAR message pointer 

/normal final malt 


/SR 6-8 
/NO. OF ranks 


/CLEAR FROM 40 . . . 
/ ... TO 177 
/DONE? 

/YES. -1 To AC 
/NO . 

/CLEAR FROM 211 
/TO 777 


/upper program limit 
/CLEAR FROM THERE . , . 

/ ... TO the top of memory 


/DONE ? 

/YES 

/NO 
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HOTMEM 


hot memory TEST,MK II 


/MAIN TEST SFQHEN'C'^ 


/ 


1 / 4 ? 

750004 

GO 


LAS 


01/43 

50154? 



AND 

(70000 

010 4 4 

041533 



dac 

#XH ITS 

01/45 

740001 



CMA 


01/45 

341550 



Tad 

{ 1 

01/47 

3015?! 



ado 

#B ANKS 

01/50 

740100 



sma 


01051 

601056 



JMP 

GO? 

0l/5? 

?0l55l 



LAC 

( EM2-1 

010 5 3 

101255 



print 


01054 

750040 

fh? 


HLT'CLA 


010 5 5 

601042 


/ 

JMp 

GO 

010 5 5 

201210 

GO? 

/ 

LAC 

lT A3 

01/57 

040011 



DAC 

A XL 

01/6? 

220011 

G03 

/ 

Lac* 

axl 

01361 

741100 



spa 


01016? 

601173 



JMP 

nexb 

010 6 3 

341533 



TAD 

axp I TS 

01064 

041524 



dac 

#HOP 

01065 

501552 



AND 

(17777 

01/66 

241553 



XOR 

( J^P 

01/67 

041526 


/ 

DAC 

A jTEM 

01/70 

T 6 1 5 ^ 4 

HOTGO 

n2M* 

«H0P 

01/71 

201526 



Lac 

jttm 

01/7? 

061524 



DAC* 

AmCP 

01/73 

777760 



law 

-20 

010 7 4 

0 4 1 5 ? 3 



Dac 

aPi AC 

01/75 

7 0 0 4 7 



ION 


01/76 

700416 



TLS+ 10 


01/77 

621524 



JMP* 

A H 0 P 




/ 

/CHMf rack 

HPRl- aP 

0 1 1 0 / 

221 2rv.i 

TEST 

/ 

1- AC* 

US'! 

0 1101 

??1 PHI 



Lac* 

PS ,p 

0 110? 

P ? 1 2 H 2 



LAC* 

mS.< 

0110 3 

P?1 253 



LAC* 

MS4 

0 110 4 

221 2^4 



LAC* 

HSp 

1.1 11/^ 

? 2 1 5 2 4 



L AC» 

AHI'P 

0110 6 

541526 



Sad 

.1 T I H 

i'’ 110’ 

6/1 150 



JMP 

T / ^ 


/ 


/SR :^-5 

/start in this bank 

/2'S COMPLEMENT 
/R ANKS-XP I TS 

/STartinp bank TOO high? 

/NO . 

/yes. print warning. 


/re-entry to repeat the test 
/LOCATION Table pointer 

/EETCH next test AODRESS 
/ENn OE table? 

/YES. 

/NO. ADD EXTENSION BITS. . . 

/...anc store eull address 

/REDUCE TO 8K . . . 

/ ... AND RU I LD I NSTRUCT I ON 


/re-entry EOR SCOPING. 

/place jmP INSTRUCTION 
/FLAG COuNt 


/INITIATE A FLAG 
/GO TURN ON The burner 

ER P SECONDS OE HEATING 

/these addresses HALP-SELE^T 
tested cores 


/NOW LOOK at The record 
/everything ok? 

/yes . 

/NO . 


. E JE '^T 
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/COME HErE after SFLF-r 


/ 


0 1 T 1 pi 

750004 

TEST2 LAS 


01111 

742010 

RTL 


0111P 

751100 

SPA : cla 


01113 

601136 

JMp 

TNG 

01114 

201525 

lac 

aHSIG 

0 1 1 1 S 

740200 

S2A 


01116 

1 01 ;?55 

PRINT 

/ 

/SPECIAL MESSAGES 

01117 

201522 

/ 

SPEM LAC 

aERaP 

01120 

740200 

SZa 


01121 

101 255 

PRINT 


01122 

141522 

02M 

/ 

/PRINT THE 
/ 

CRLE 

«ERAP 

data 

01123 

101365 


01124 

201526 

LAC 

JTEM 

01125 

101374 

PROCT 


01126 

101365 

CRLF 


01127 

707702 

EEM 


01130 

221524 

LAC* 

ishOP 

01131 

101374 

PROCT 


01132 

101352 

TAB 


01133 

201524 

LAC 

«hop 

01134 

101401 

PROCS 


01135 

101 365 

CRLE 

/ 

TNG L.aSIcLL 


01136 

754004 


01137 

740010 

PAL 


01140 

741400 

S?L 


01141 

601154 

JMp 

CooL I T 

0114? 

740100 

SMA 


0114 3 

740040 

EHl hLT 


01144 

750004 

LAS 


0114 5 

754100 

sma ; CL A : 

CLL 

01146 

6 01 0 6 0 

JMP 

003 

01147 

601070 

JMP 

M 0 T G 0 

01150 

750004 

/ 

TOK LAS 


0 1151 

750100 

SMA : rL A 


0115? 

601060 

Jmp 

003 

0 115 3 

6 0 1 1 H 4 

JMP 

/ 

r ' T 

i'OOL I T 


/EMTRY FPO*^ cal trap 


/sw-?; printing? 

/No . 

/YES. get header ADDRESS 
/PRINT header? 

/YES . 


/address oe message 
/IS there one to PRINT? 
/YES. 


/correct contents 


/actual contents 


/absolute address 


/HERE IE There were errors 
/SW0 and swi 
/SCOP 1 NG? 

/YES 

/NO. HALT? 

/YES . 

/SCOPING? 

/NO. NEXT register. 

/YES. no This one again 

/HERE IE NO ERRORS 
/SCOP I NG? 

/NO . 

/YES 
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/cnoL-orr pepjod rftween Scope loops 


/ 



777754 

COOL I T 


L A w 


041523 

OAC 


FL AC 

01156 

201554 

LAC 


( SCORE 

01157 

01160 

040006 

700042 

DAG 

I ON 


I ORET 

01161 

700416 

TLS+10 


0116? 

221524 

C00L2 Lac* 


#hop 

01163 

777774 

LAW 


-4 

01164 

040012 

dac 


aX3 

01165 

4 4 0 0 1 2 

IS? 


AX3 

01166 

601165 

JMP 


. - 1 

01167 

601162 

JMP 

/ 

SCORE Lac 


COOL? 

0 1 1 7 0 

20 I 555 


( TF ST 

01171 

040006 

OAC 


lORET 

0117? 

601070 

JMP 

/ 

/AFTER 

/ 

NEXB LAS! 
RTR 
SPA 

EACH 

hotgo 

4K bank 

M173 

01174 

01175 

754004 

742020 

741100 

CLL 


01176 

601056 

JMP 


GO? 

01177 

201533 

LAC 


# X P I T S 

01200 

541521 

Sad 


#banks 

01201 

601204 

JMP 


HONE 

0 1 ? 0 2 

341556 

TAD 


( 10000 

0120 3 

601044 

JMP 

/ 

nONE SNL! 


GO + 2 

01204 

750400 

CL A 


012 0 5 

601005 

JMP 


NEW 

012 0 6 

141533 

n?M 


# X FF I T S 

01207 

601066 

JMP 

/ 

.EJECT 

GO? 


-24 

/2-srcoNn count 

/SET RETURN FROM BREAK 


/SWITCH THE CORES 
/18 USEC. DELAY 


/COOL OFF DONE? RESTORE NORMAL. 
/ . . . rRf ak return 


IS tested, 00 This: 


/sw 16-17 TO ACtl.L 
/REPEAT THIS BANK? 

/YES . 

/NO. test for last bank 
/DONE ALL BANKS? 

/YES. 

/NO. increment extension 


/FINAL halt? 

/YES in'deedy: ■ 

/nope. ClEAR extension BiTS. 
/ANO go pOuND AGAIN 



PAGE 6 


HoThEm 


Hot memory test.mk n 


/jHP location Table (as 4K addresses) 


/ 


0l2l0 

001 2 1 0 

ltab 



01211 

000037 

0037 : 

0040 ; 

0077 

0121? 

000040 




01213 

000077 




01214 

000101 

0101 ; 

0102 ; 

010 4 

01215 

000102 




01216 

000104 




01217 

004001 

4001 ; 

4002 ; 

4004 

01220 

004002 




01221 

004004 




01222 

007701 

7701 ; 

7702; 

7704 

01223 

007702 




01224 

007704 

/ 

3700 : 



01225 

003700 

3740; 

3777 

01226 

003740 




01227 

003777 




01230 

004000 

4000 : 

4 0 37; 

4077 

01231 

004037 




01232 

004077 




01233 

007700 

7700 ; 

7737; 

7740 

01234 

007737 




01235 

007740 




01236 

000100 

0100 ; 

04 00 


01237 

000400 




01240 

000140 

0140; 

0240 ; 

0440 

01241 

000240 




01242 

000440 




01243 

000177 

0177 ; 

0277 ; 

0477 

01244 

000277 




01245 

000477 




01246 

007777 

7 7 7 7: 

777777 


01247 

777777 





/ 

/half-select addresses 
/ 


01250 00 0 0 00 '-Si 0 000 

01251 00777-7 US2 7777 

0125? 004040 MS 3 4040 

01253 000137 hS 4 0137 /CATCHESTHEXr0 

01254 007700 SS3 7700 

/ 


approximation addresses 


.EJECT 



PAGE 


7 


HOTMEM 
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/TEXT PRINTER 
/ 


1 ? 55 

0 0 0 0 0 0 

PRINT. 

0 


040010 

DAC 

AXT 

01?57 

141525 

D2M 

#HSIG 

01260 

707704 

LEM 


01261 

220010 

PR I NGO 

LAC« 

0126 ? 

041517 

DAC 

#ASTEM 

01263 

101311 

CHAR 


01264 

101323 

TESP 


M1265 

101311 

CHAR 


01266 

101323 

TESP 


01267 

101311 

CHAR 


01270 

501557 

And 

(170 

01271 

041520 

DAC 

ttAST3 

01272 

220010 

L AC« 

AXT 

012 7 3 
01274 

744010 

742010 

RCL ; 

ptl 

0127'" 

04151^ 

n A C 

astem 

0127f 

740010 

RAL 



501560 

AND 

( 7 

01300 

2415P0 

XOR 

AST 3 

01301 

101323 

TESP 


01302 

101311 

CHAR 


01303 

101323 

TESP 


013 0 4 

10131 1 

CHAR 


01305 

101323 

TESP 


01306 

601261 

JMp 

/ 

/COME here 
/ 

PRnUT FFM 

PR I NGO 

from TeSP 

013 0 7 

707702 


01310 

621255 

JMPc 

/ 

.EJECT 

PRINT. 


/SUPPRESS FUTURE HEADERS 
AXT /FIRST PAIR-WORD 

/POSITION FIRST CHARACTER... 

/ . . . SECOND . . . 

/...PUT THE THIRD TOGETHER... 

/second PAIr-wOrD 
/ADJUST 

/3RD CHAR low-order RITS 

/assemble The parts 

/ . . .FOURTH . . . 

/ . . .AND F I FTM 

when Terminator appears 
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/TfXT printer subroutines 


/ 

/I. POSITION character 

/ 


^1311 

000000 

CHAR . 

0 




201517 


LAC 

#astem 


1^1313 

744010 


RCL 



01314 

742010 


RTL; 

RTL; rtl 


01315 

742010 





01316 

742010 





01317 

041517 


^AC 

ASTEm 

/nExT ChAR. now lEET-jUSTiEjED 

01320 

740010 


Pal 


/last pit in place 

01321 

501544 


AND 

(177 

/ISOLATE 7 bits 

01322 

621311 


JMP* 

/ 

/2.TEST 

/ 

0 

char. 





and print character 


01323 

000000 

TESP . 



01324 

741200 


SNA 


/0? (ASCII PILLER) 

01325 

621323 


JMPtt 

TESP. 

/YES. IGNORE IT 

01326 

541544 


SAD 

(177 

/terminator? 

0 I 327 

601307 


JMP 

prout 

/YES. GO way 

01330 

241561 


XOR 

( 200 

/NO. EINISH The aSci 1-code 

01331 

541545 


SAD 

( 21 1 

/TAB? 

01332 

601337 


JMp 

TEsi 

/YES. 

01333 

101341 


TyPE 


/NO . 

01334 

541562 


Sad 

(212 

/CR? 

01335 

1 4 1 5 3 2 


OZM 

tarct 

/YES. CLEAR TAB 

01336 

621323 


JMP« 

TESP . 


01337 

101352 

TESi 

tab 



01340 

621323 


JMP<j 

/ 

/3. type 
/ 

TESP. 





A character 


01341 

000000 

TYPE . 



0134? 

700002 


I OP 


/AVOID interrupt 

01343 

700406 


tls 



013 4 4 

700401 


TSE 



01345 

601344 


JMP 

. -1 


013 4 6 

700402 


TCP 



01347 

700042 


I ON 



01350 

44153? 


IS? 

T AHCT 


01351 

621341 


JMP* 

type . 



/ 


.EJECT 
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/4. TABULATOR 

J 

01 T 5 ? 

0 0 0 7 7 * 

T AP . 0 


01353 

20153? 

Lac 

AT ABC T 

01354 

341563 

TAD 

( -12 

01355 

740100 

sma 


01356 

601 354 

JMP 

. -? 

01357 

040012 

DAC 

A X3 

013 6 0 

? 0 1 56 4 

L AC 

( 240 

013 61 

101341 

TYPE 


0136? 

4 4 0 01 2 

IS? 

AX3 

01363 

601361 

JMP 

. -2 

01364 

621352 

JMP» 

/ 

/5. CR-LE 

/ 

CRLP. 0 

tab . 

01765 

000000 


01366 

231565 

LAC 

(21 5 

01367 

101341 

type 


0137V 

201562 

L AC 

( 212 

etmi ' 

101341 

type 


0137? 

141532 

D?M 

tapct 

01373 

621365 

JMP» 

/ 

print=jms print, 

CHARrJMS char. 
TESP=JMS TESP. 
Type=JMS Type. 
TAB=JMS tab. 
CRLF=JMS CRLE. 

CRLE. 


1 0 1 2'' 5 
lots') 1 
101323 
101341 
101352 
1013^5 



/ 


.EJECT 


/COIJ^T OF spaces 
/REDUCE modulo 10 
/NEGATIVE YET? 

/NO . 

/YES. STORE SPACE COUNT 

/ ( space ) 

/DONE? 

/NO . 

/YES 
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/octal print 

SUbROUPINE 




/ 

/entry to print leading ?ER0S 
/ 


^^l374 

000000 

/ 

PROCT . 

0 


01375 

041530 


DAC 

#OCTEM 


01376 

2014?3 


LAC 

OPS + 3 

/NOP 

01377 

101406 


JMS 

DPI 


01400 

621374 

JMP* 

PROCT . 




/entry To PePLaCF leading ?eR0S 

WiTh spaces 

01401 

000000 

/ 

PROCS . 

0 


01402 

041530 


DAC 

aOCTEM 


01403 

201566 


LAC 

( S ? A 


01404 

101406 


JMS 

OPl 


01405 

621401 

JMP« 

PROCS . 




/ 

/PRINTFR 

/ 



014 06 

000000 

OPi 

0 



01407 

041420 


DAC 

OPS 

/SET SWITCH 

01410 

777772 


law 

-6 


01411 

041527 


DAC 

«OCCT 

/DIGIT COUNTER 

0141? 

201530 

OPGO 

LAC 

tfOCjFM 


01413 

744010 


PCL : 

RTL 


01414 

742010 





01415 

041530 


nAC 

#octem 


01416 

740010 


RAL 



01417 

501560 


AND 

( 7 


01420 

740040 

ORS 

XX 


/S?A OP NOP 

01421 

601427 


JMP 

OPT 


0142? 

441527 


IS? 

aOCCT 

/LEADING ?ERO. COUNT DIGITS 

01423 

740000 


NOP 



01424 

201 564 


LAC 

( 240 

/TYPE A SPACE 

01425 

101341 


TYPE 



01426 

601412 

JMP 

OpGO 


01427 

241567 

ORT 

XOP 

(260 

/aSc II maker 

014 30 

101341 


TYPE 



01431 

201423 


LAC 

OPS + 3 

/REPLACE S?A WITH NOR 

0143? 

041420 


DAC 

DPS 


0 14 3 3 

441527 


IS? 

aOCCT 


01434 

601412 


.IMP 

OPGO 


01435 

621406 

JMPo 

/ 

OPl 



101401 

/ 

P p 0 c s = J M S R R n c . 




101374 

PH T = RROC T . 




/ 


. E J F r T 
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01436 

064251 

01437 

047650 

01440 

202330 

01441 

546636 

01442 

512624 

01443 

052212 

01444 

516501 

01445 

505024 

01446 

416371 

01447 

652212 

014 50 

472512 

014 51 

304630 

01452 

476070 

01453 

152222 

014 5/' 

476341 

01-4 5' 

505376 


01456 

064250 

01457 

347644 

01460 

425012 

01461 

353622 

0146? 

522071 

01463 

042613 

01464 

202571 

01465 

044630 

01466 

42501 1 

014 67 

042602 

01470 

522231 

01471 

643432 

01472 

053760 

01473 

000000 

014 7 4 

064252 

014 7 5 

352202 

01476 

51251 1 

01477 

147216 

*^1500 

202050 

015 01 

147226 

71^0? 

202511 

01503 

747500 

01504 

442230 

0 1 5 0 H 

744134 

015 0 6 

2 0 ? 4 5 0 

015 0 7 

551612 

.115 10 

521012 

01511 

353546 

0 1 5 1 2 

265525 

0151 3 

606424 

01514 

774003 

0 15 15 

0 0 0 0 0 0 


hot memory TeST.MK II 

/messages 

/ 

/hfaging text 

/ 

HEAD .ASCII <15><1P>’H0T MEMORY T E S T ' < 1 5 X 1 2 X 1 2 > 


.ASCII •C0NTEmTS'<11>’l0CATi0M’<15><12X177> 


EMI 


/self-destruct message 

.ASCII <l'S><l?>’CORE SWITCHED WHILE HEaT I MG ' <15><12X177> 


Fm? •'^?Cii <1^><1'/> • start I nG bank too HjGH. reset SW3-5 . ' <15><12><177> 
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0l5i6 

0 0157/! 

/ 

PL I M 

.SIZE 


000000 


.END 


01534 

001 4‘=>5 



01'S35 

041531 

*L 


01536 

700401 



01537 

600027 



015 4 0 

600024 



015 41 

001435 

*L 


01542 

070000 



015 4 3 

000037 

*L 


01544 

000177 

»L 


015 4 5 

000211 

*L 


01546 

000777 

*L 


01547 

007777 

*L 


01550 

000001 

*L 


01551 

001473 

*L 


01552 

017777 



01553 

600000 

*L 


015 5 4 

001170 

*L 


01555 

001100 

*L 


01556 

010000 

*L 


01557 

000170 



01560 

000007 



015 61 

000200 

«L 


0156? 

000212 



01563 

777766 

*L 


01564 

000240 

*L 


01565 

000215 

*L 


0156^ 

740200 



01567 

000260 

*L 



S I ?E = ^^ '’70 

NO ePROP lines 
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ASTEM 

01517 

AST3 

01520 

A YL 

0001 1 

AXT 

0 0 010 

AX3 

00012 

RANKS 

01521 

RG I N 

01000 

CHAR 

101311 

CH AR , 

01311 

CLOr 

700004 

CLON 

700044 

CLSE 

700001 

COOL I T 

01154 

C00L2 

01162 

CRL E 

101365 

CRLF . 

01365 

^ONE 

01204 

EEM 

707702 


01143 

FH? 

01054 

FMl 

11456 

FM2 

01474 

FRAP 

01522 

FX I NT 

00031 

FLAG 

01523 

GO 

01042 

GO? 

01056 

GO 3 

01060 

HEAD 

01436 

HOP 

01524 

hotgo 

01070 

MSI G 

01525 

HSl 

01 P50 

HS? 

01251 

HS3 

01252 

HS4 

01 25 3 

HSH 

01254 

I N I T 

010 0 6 

I oret 

0 0 '0 0 6 

JTFM 

015 2 6 

^ R R 

700312 

KSF 

700301 

L_ E M 

707704 

LTAB 

01210 

N E X R 

0117 3 

NjF H 

010 0 5 

0 r r t 

0 1 M 2 7 

C C T F H 

1 M 3 0 

C M C 0 

0 ■' 4 1 2 

CPS 

01 420 

lip T 

0 1 R 2 7 

;1P1 

014 0 6 

PCE 

70020? 

P L I M 

0 1516 

PR I NGil 

01 261 



HOTmEM 


hot memory TEST.MK II 


page 14 

PRINT 101255 
PRINT. 01255 
PROCS 101401 
PROCS. 01401 
PROCT 101374 
PROCT. 01374 
PROUT 01307 
PSA 700204 
PSB 700244 
PSF 700201 
RCF 700102 
RRR 700112 
RSA 700104 
RSB 700144 
RSF 700101 
SAC 01531 
SCORE 01170 
SPEM 01117 
SPIN 00027 
TAB 101352 
TABCT 01532 
TAB. 01352 
TCF 700402 
TESP 101323 
TFSP. 01323 
TEST 01100 
TEST2 01110 
TESl 01337 
TLS 700406 
TNG 01136 
TOK 01150 
TSF 700401 
TTYR 00024 
type 101341 
type. 01341 
XBItS 01533 
.EOT 00000 
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Page i5 


.EOT 

00000 

lORET 

00006 

AXT 

0001 0 

AXL 

00011 

AX3 

00012 

TTYR 

00024 

SPIN 

00027 

EX INT 

00031 

RG IN 

01000 

NFH 

01005 

INIT 

01006 

GO 

01042 

EH2 

01054 

G02 

010 56 

G03 

01060 

HOTGO 

01070 

TEST 

01100 

TEST2 

01110 

spfm 

01117 

TNf 

01136 

EH 

01143 

TOK 

01150 

COOL I T 

01154 

C00L2 

01162 

SCORE 

01170 

NEXB 

01173 

GONE 

01204 

ltab 

01210 

HSl 

01250 

HS2 

01251 

MS3 

01252 

HS 4 

01253 

MS5 

01254 

PRINT. 

01255 

PRINGO 

01261 

PROUT 

01307 

CM ar . 

01311 

TESP . 

01323 

TESl 

01337 

ype . 

01341 

■^AP . 

01352 

CRLE . 

01365 

PROCT . 

01374 

PROCS , 

01401 

GPl 

01406 

n p G 0 

01412 

Ops 

01 420 

fiPT 

014 2 7 

HE AD 

01436 

F Ml 

014 56 

CM2 

01474 

PL I M 

01516 

aSTEM 

01 517 

AST3 

01520 

RANKS 

01521 
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FRAP 01522 
FLAG 01523 
HOP 01524 
HSIG 01525 
JTFM 01526 
OCCT 01527 
OCTEM 01530 
SAC 01531 
TARCT 01532 
X0ITS 01533 
PRINT 101255 
char 101311 
TESp 101323 
TYPE 101341 
TAR 101352 
CRlF 101365 
PROCT 101374 
PROCS 101401 
ClSF 700001 
CLoF 700004 
CLON 700044 
RSF 700101 
RCF 700102 
RSA 700104 
RRB 700112 
RSR 700144 
PSF 700201 
PCF 700202 
PSA 700204 
PSR 700244 
KSF 700301 
KRR 700312 
TSF 700401 
TCF 700402 
TLS 700406 
FEM 707702 
LEM 707704 
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